home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 051-075 / disk_065 / pascaltoc / testfile.c < prev    next >
Text File  |  1992-05-06  |  1KB  |  20 lines
  1. /* sort -- external sort of text lines, from Software Tools in Pascal, pg 121 */
  2. void sort()
  3. /* CONST */
  4.     MAXCHARS == 10000;    /* maximum # of text characters */
  5.     MAXLINES == 300;        /* maximum # of lines */
  6.     MERGEORDER == 5;
  7.  
  8.      typedef 1/***# Expected ; ***/ charpos;/***# Expected = ***/typedef charbuf/***# Expected ; ***/ MAXCHARS; /***# Expected type identifier ***/ /***# Expected = ***/typedef 1/***# Expected ; ***/ ;/***# Expected = ***/typedef /***# Expected type ***//***# Expected ; ***/ MAXCHARS; /***# Expected = ***/typedef posbuf/***# Expected ; ***/ character; /***# Expected type identifier ***/ /***# Expected = ***/typedef 1/***# Expected ; ***/ ;/***# Expected = ***/typedef /***# Expected type ***//***# Expected ; ***/ MAXLINES; /***# Expected = ***/typedef pos/***# Expected ; ***/ charpos; /***# Expected = ***/typedef MAXLINES 0;
  9.      typedef filedesc fdbuf[MERGEORDER+1];
  10.  
  11.     charbuf linebuf ;
  12.     posbuf linepos ;
  13.     pos nlines ;
  14.     fdbuf infile;
  15.     filedesc outfile ;
  16.     int high, low, lim;
  17.     boolean done ;
  18.     char/***# Expected [ or ( after STRING ***//***# Expected string length ***//***# Expected ] or ) after STRING[ ***/
  19. /***# EOF ***/
  20.